home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / cross / sasmv14.dms / sasmv14.adf / snesdemo / music.s < prev    next >
Text File  |  1993-05-22  |  4KB  |  189 lines
  1.  
  2. ****************************************************************************
  3. **
  4. **    This is the unchanged, really first sourccode which has been
  5. **    assembled by SASM 68030 (Amiga) during development.
  6. **
  7. **    Included only for historical reasons...
  8. **
  9. **    © 1992 by Florian W Sauer
  10. ** 
  11. ****************************************************************************
  12.  
  13.     heap    O=128k            ;max 128k object buffer
  14.     size    4            ;4 32kblocks
  15.  
  16.     SMC+                ;yes, we want a smc header
  17.     lrom                ;yes, please split in 32k hunks
  18. ;---
  19. ;Hardware Include File © 1992 by Florian W. Sauer
  20. ;---
  21. INIDISP=    $2100
  22. MOSAIC=        $2106
  23. CGADD=        $2121
  24. CGDATA=        $2122
  25. NMITIMEN=    $4200
  26.  
  27. Start    EQU    32768            ;($8000) in hex
  28.     ORG    Start            ;yes, set it twice..
  29.  
  30.     .say    !            ;just newline
  31.     .say    ******************************************
  32.     .say    **                    **
  33.     .say    ** The really first demo!        **
  34.     .say    ** ~~~~~~~~~~~~~~~~~~~~~~        **
  35.     .say    **                    **
  36.     .say    ** © 1992 by Florian W. Sauer of    **
  37.     .say    **      Infernal Byte Systems, INC.    **
  38.     .say    **                    **
  39.     .say    ******************************************
  40.  
  41.     sei                ;disable irq's
  42.     clc
  43.     xce                ;goto native mode
  44.     sep    #$30            ;a,x,y 8bit
  45.  
  46.     lda    #$80
  47.     sta    INIDISP
  48.     lda    #$11            ;mosaic enable
  49.     sta    MOSAIC
  50.  
  51.     lda    #$00            ;disable NMI
  52.     sta    NMITIMEN
  53.  
  54.     nop
  55.     nop
  56.     nop
  57.  
  58.     jmp    $9000
  59.  
  60. ;Music Starts Here
  61. ;~~~~~~~~~~~~~~~~~
  62.  
  63. InitMusic:
  64.     sep    #$30
  65.  
  66. ;* bincon (c)1992 by h.bühler, codex design *
  67.  
  68.     dc.b    $a9,$ff,$8d,$40,$21,$c2,$10,$a2,$ff,$7f,$bf
  69.     dc.b    $00,$80,$01,$9f,$00,$00,$7f,$bf,$00,$80,$02,$9f,$00,$80,$7f,$ca
  70.     dc.b    $10,$ed,$ea,$ea,$ea,$ea,$ea,$a9,$00,$8d,$fd,$00,$a9,$00,$8d,$fe
  71.     dc.b    $00,$a9,$7f,$8d,$ff,$00,$ea,$ea,$ea,$78
  72.     jsr    Restart
  73.     dc.b    $e2,$30,$ad
  74.     dc.b    $40,$21,$d0,$fb,$a9,$e0,$8d,$43,$21,$a9,$ff,$8d,$42,$21,$a9,$01
  75.     dc.b    $8d,$41,$21,$a9,$01,$8d,$40,$21,$ad,$40,$21,$c9,$01,$d0,$f9,$ad
  76.     dc.b    $40,$21,$c9,$55,$d0,$f9,$ad,$07,$02,$8d,$41,$21,$a9,$07,$8d,$40
  77.     dc.b    $21,$ad,$40,$21,$c9,$07,$d0,$f9,$ad,$40,$21,$c9,$55,$d0,$f9
  78.     dc.b    $58
  79.     sep    #$30
  80.     rts
  81.  
  82.     nop
  83.  
  84. Restart:dc.b    $08
  85.     jsr    Restart2
  86.  
  87.     dc.b    $28,$a9,$00,$8d,$40,$21,$60
  88.  
  89. Restart2:
  90.     dc.b    $08,$c2,$30,$a0,$00
  91.     dc.b    $00,$a9,$aa,$bb,$cd,$40,$21,$d0,$fb,$e2,$20
  92.     dc.b    $a9,$cc,$80,$26,$b7
  93.     dc.b    $fd,$c8,$eb,$a9,$00,$80,$0b,$eb,$b7
  94.     dc.b    $fd,$c8,$eb,$cd,$40,$21,$d0
  95.     dc.b    $fb,$1a,$c2,$20,$8d,$40,$21,$e2,$20,$ca,$d0
  96.     dc.b    $eb,$cd,$40,$21,$d0
  97.     dc.b    $fb,$69,$03,$f0,$fc,$48,$c2,$20,$b7,$fd
  98.     dc.b    $c8,$c8,$aa,$b7,$fd,$c8
  99.     dc.b    $c8,$8d,$42,$21,$e2,$20,$e0,$01,$00
  100.     dc.b    $a9,$00,$2a,$8d,$41,$21,$69
  101.     dc.b    $7f,$68,$8d,$40,$21,$cd,$40,$21,$d0,$fb,$70,$b3,$28,$60
  102.     dc.B    $68,$8d,$40,$21,$cd,$40,$21,$d0,$fb,$70,$b3,$28,$60
  103.  
  104. -stuff
  105. ------
  106.  
  107.     *= $9000
  108.  
  109.     jsr    InitMusic    ;send spcu data...
  110.     lda    #$f
  111.     sta    INIDISP
  112.     lda    #$80        ;enable nmi
  113.     sta    NMITIMEN
  114.  
  115.     stz    CGADD        ;black bg!
  116.     lda    #$3f
  117.     sta    CGDATA
  118.     sta    CGDATA
  119. loop:    jmp    loop
  120.  
  121. ; Sinustab
  122. ;~~~~~~~~~
  123. sinustab:
  124.     dc.b    $01,$01,$01,$11,$11,$11,$21,$21,$31,$31,$31,$41,$41,$51,$51,$51
  125.     dc.b    $61,$61,$61,$71,$71,$71,$81,$81,$81,$91,$91,$91,$A1,$A1,$A1,$B1
  126.     dc.b    $B1,$B1,$B1,$C1,$C1,$C1,$C1,$D1,$D1,$D1,$D1,$D1,$E1,$E1,$E1,$E1
  127.     dc.b    $E1,$E1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1
  128.     dc.b    $F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$F1,$E1,$E1
  129.     dc.b    $E1,$E1,$E1,$E1,$D1,$D1,$D1,$D1,$D1,$C1,$C1,$C1,$C1,$B1,$B1,$B1
  130.     dc.b    $B1,$A1,$A1,$A1,$91,$91,$91,$81,$81,$81,$71,$71,$71,$61,$61,$61
  131.     dc.b    $51,$51,$51,$41,$41,$31,$31,$31,$21,$21,$11,$11,$11,$01,$01,$01
  132.  
  133. ------------
  134. - VBI
  135. ------------
  136.  
  137. VBI    php
  138.     pha
  139.     phx
  140.  
  141.     rep    #$30    ;all 16bit!
  142.  
  143.     clc
  144.     lda    $1ff8
  145.     adc    #1
  146.     sta    $1ff8    ;word!
  147.  
  148.     sep    #$30
  149.  
  150.     lda    $1ffa
  151.     clc
  152.     adc    #1
  153.     sta    $1ffa
  154.     and    #$7f
  155.     tax
  156.     lda    sinustab,x
  157.     sta    MOSAIC
  158.     ror    a
  159.     ror    a
  160.     ror    a
  161.     ror    a
  162.     and    #$f
  163.     eor    #$f
  164.     sta    INIDISP
  165.  
  166.     lda    #1
  167.     sta    CGADD
  168.     lda    $1ff8
  169.     sta    CGDATA
  170.     lda    $1ff9
  171.     eor    #$5
  172.     sta    CGDATA
  173.  
  174.     plx
  175.     pla
  176.     plp
  177.     rti
  178.  
  179. ;Vectors
  180. ;~~~~~~~
  181.     org    $ffea    ;nmi vector in 65816 mode !!
  182.     dcr.w    VBI
  183.     org    $fffc    ;reset vector in 6502 mode
  184.     dcr.w    Start
  185.  
  186.     .pad
  187. mus1:    .bin    ice:famicom/stassembler/music1.bin
  188. mus2:    .bin    ice:famicom/stassembler/music2.bin
  189.